        SUBT    > Sources.FileSwHdr - for standalone assembly

        GET     Hdr:ListOpts
        OPT     OptNoList
        GET     Hdr:Macros
        GET     Hdr:System
        GET     Hdr:CMOS
        GET     Hdr:ModHand
        GET     Hdr:Services
        GET     Hdr:FSNumbers
        GET     Hdr:HighFSI
        GET     Hdr:NewErrors
        GET     Hdr:Heap
        GET     Hdr:Variables
        GET     Hdr:EnvNumbers
        GET     Hdr:Proc
        GET     Hdr:PublicWS          ; Import SVCSTK, SysHeap, ScratchSpace
        GET     Hdr:Tokens
        GET     Hdr:FileTypes
        GET     Hdr:VduExt
        GET     Hdr:UpCall
        GET     Hdr:LowFSi
        GET     Hdr:Wimp              ; It happens to us all in the end ...
        GET     Hdr:MsgTrans
        GET     Hdr:Territory

        OPT     OptList + OptPage

 [ False
        AREA    FileSwitch, CODE, READONLY, RELOCATABLE

        EXPORT  BGetEntry
        EXPORT  BPutEntry
 |
        LEADR   Module_LoadAddr
 ]

TAB     *       09
LF      *       10
CR      *       13


        GBLL    ChopOffTheGoolies       ; For deviant OS debugging versions
ChopOffTheGoolies SETL False

        ; Indicates whether fsfile_Save reason is used, or create, open, GBPB, close
        GBLL    Use_fsfile_Save
Use_fsfile_Save SETL True

        ; Indicates whether fsfile_Load reason is used, or open, GBPB, close
        GBLL    Use_fsfile_Load
Use_fsfile_Load SETL True

        MACRO
        assert  $condition
 [ :LNOT: ($condition)
 ! 1,"assert failed: $condition"
 ]
        MEND

        END
